﻿Imports DTO
Imports BUS
Public Class UserControlThemLoaiTietKiem

    Private Sub UserControlThemLoaiTietKiem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ltkBus As New LoaiTietKiemBUS()
        txtMaLoaiTietKiem.Text = (ltkBus.LayMaLoaiTietKiemMax() + 1).ToString()
    End Sub

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        Dim laisuat As Single
        Dim str As String
        Dim ltkDTO As New LoaiTietKiemDTO()
        If txtTenLoaiTietKiem.Text.Length = 0 Then
            str += "Tên loại tiết kiệm không được bỏ trống" & vbCrLf
        End If
        Try
            laisuat = Convert.ToSingle(txtLaiSuat.Text)
        Catch ex As Exception
            str += "Lãi suất phải là kiểu số"
        End Try

        If str IsNot Nothing Then
            MessageBox.Show(str)
        Else

            ltkDTO.LaiSuat = laisuat
            ltkDTO.TenLoaiTietKiem = txtTenLoaiTietKiem.Text
            Dim ltkBus As New LoaiTietKiemBUS()
            Dim kq As Integer = ltkBus.ThemLoaiTietKiem(ltkDTO)
            If kq = 1 Then
                MessageBox.Show("Hoàn tất việc thêm mới loại tiêt kiệm")
            Else
                MessageBox.Show("Quá trình thêm mới bị thất bại")
            End If
        End If
    End Sub
End Class
